home *** CD-ROM | disk | FTP | other *** search
/ Palm Utilities / Palm_Utilities_CD-ROM_2001_2001.iso / files / medical / Code Blue! 0.7b / Code_Blue.exe / Module.txt < prev    next >
Encoding:
Text File  |  1999-07-09  |  9.5 KB  |  152 lines
  1. // Code Blue! Module Maker
  2.  
  3. int a,b,c;
  4. string bit[9],select;
  5.  
  6.  
  7. include "Code Blue! casedb0"
  8. include "Code Blue! casedb1"
  9.  
  10.  
  11. main(){
  12.     stripliba();
  13.     striplibb();
  14.     orderlib();
  15.     a=dbopen("CB!Cardiac");
  16.     if (a) if (!confirm("Overwrite prior database?")) exit();
  17.     dbcreate("CB!Cardiac");
  18.     dbbackup(1);
  19. /*number of cases*/
  20.     b=9;
  21.     dbwrite(b);
  22.     dbwrite(select);
  23.     dbwrite("Cardiac Module\n⌐1999 by M. Baker\nBased on AHA ACLS guidelines. Not associated with the AHA or ACLS.");
  24.     /*bp*/
  25.     dbwrite("???/??");
  26.     /*vr*/
  27.     dbwrite("???");
  28.     /*pulse*/
  29.     dbwrite("??");
  30.     /*algorhythm*/
  31.     dbwrite("101010131210161006101710210");
  32.     /*strip*/
  33.     dbwrite(bit[0]);
  34.     /*rhythm*/
  35.     dbwrite("ventricular fibrillation");
  36.     /*intro*/
  37.     dbwrite("A 65y.o. female arrives to emergency with CPR in progress by basic paramedics. She has been unresponsive since passing out at home. She is ventilated with a face mask.");
  38.     /*complaint*/
  39.     dbwrite("65y.o. female unresponsive");
  40.  
  41.     /*next case*/
  42.     dbwrite("???/??");
  43.     dbwrite("55");
  44.     dbwrite("???");
  45.     dbwrite("1320120305");
  46.     dbwrite(bit[1]);
  47.     dbwrite("pulseless electrical activity (PEA) from tricyclic overdose");
  48.     dbwrite("A 19y.o. female arrives to emergency after being found by her husband. An empty bottle of anti- depressents was in her hand. She is not breathing. CPR is started.");
  49.     dbwrite("19y.o. female tricyclic overdose");
  50.     /*next case*/
  51.     dbwrite("???/??");
  52.     dbwrite("???");
  53.     dbwrite("???");
  54.     dbwrite("1320191203");
  55.     dbwrite(bit[2]);
  56.     dbwrite("asystole");
  57.     dbwrite("A 76y.o. male with COPD arrives in emergency by BLS unresponsive with CPR in progress. He has been having more trouble breathing for 2 days. He has occasional agonal respirations.");
  58.     dbwrite("76y.o. male with COPD, unresponsive");
  59.  
  60.     /*next case*/
  61.     dbwrite("70/50");
  62.     dbwrite("30");
  63.     dbwrite("30");
  64.     dbwrite("180319111214");
  65.     dbwrite(bit[3]);
  66.     dbwrite("complete heart block with serious signs/symptoms");
  67.     dbwrite("A 78y.o. male presents to you complaining of chest pain and dizziness. He is awake and oriented, but sweating  slightly.");
  68.     dbwrite("78y.o. male with dizziness/chest pain");
  69.     /*next case*/
  70.     dbwrite("135/78");
  71.     dbwrite("140");
  72.     dbwrite("140");
  73.     dbwrite("220102230407");
  74.     dbwrite(bit[4]);
  75.     dbwrite("stable PSVT");
  76.     dbwrite("A 36y.o. male presents to you complaining of palpitations for 2 hours. He is in no acute distress. Exam is unremarkable except for tachycardia.");
  77.     dbwrite("36y.o. male with palpitations");
  78.     /*next case*/
  79.     dbwrite("156/76");
  80.     dbwrite("136");
  81.     dbwrite("136");
  82.     dbwrite("160102210607");
  83.     dbwrite(bit[5]);
  84.     dbwrite("wide complex tachycardia of uncertain type");
  85.     dbwrite("A 55y.o. female presents to you complaining of palpitations after walking in a mall. She denies chest pain. She is awake and oriented. Physical exam shows a fast, regular pulse.");
  86.     dbwrite("55y.o. female with palpitations");
  87.     /*next case*/
  88.     dbwrite("149/77");
  89.     dbwrite("127");
  90.     dbwrite("150");
  91.     dbwrite("1816210607");
  92.     dbwrite(bit[6]);
  93.     dbwrite("stable ventricular tachycardia");
  94.     dbwrite("A 65y.o. male with a prior heart attack is brought to you complaining of not feeling well. He denies chest pain & trouble breathing. Exam is unremarkable");
  95.     dbwrite("65y.o. male with weakness");
  96.     /*next case*/
  97.     dbwrite("156/86");
  98.     dbwrite("145");
  99.     dbwrite("145");
  100.     dbwrite("182201021607");
  101.     dbwrite(bit[7]);
  102.     dbwrite("wide complex PSVT");
  103.     dbwrite("A 87y.o. male presents to you complaining of dizziness. He is awake and oriented. His old ECG shows a left bundle branch block.");
  104.     dbwrite("87y.o. male with dizziness");
  105.     /*next case*/
  106.     dbwrite("95/53");
  107.     dbwrite("160");
  108.     dbwrite("160");
  109.     dbwrite("1807");
  110.     dbwrite(bit[8]);
  111.     dbwrite("unstable ventricular tachycardia");
  112.     dbwrite("A 67y.o. male presents to you complaining of shortness of breath. He is awake and conversant, but appears tired. Pulse ox is 87% on room air without respiratory distress. Exam reveals rales.");
  113.     dbwrite("67y.o. male with shortness of breath");
  114.  
  115. }
  116.  
  117.  
  118.  
  119. /* Next Memo Pad file begins after this */
  120.  
  121. /$ Code Blue! casedb0
  122.  
  123. stripliba(){
  124. bit[0]="78000000000000000000000000000001000000000000000400000000000001000000000002000400000800000001000000000003008c00000880000001000000008023108c04108c8000001191000"+"011b022908a84118d4000203391112231513298caca2a4b40045131a916a22a13346952ca2a52490693536aa8d54c0ccc6552a94a5035c90acb46a0554408cc2552b144502528048d04a00880004402231084200310000f004000000044022100002002000009000000000000000"+"100000000000001000000000000000100000000000001000000000000000000000000000001000000000000000000000000000003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  125.  
  126. bit[1]="78000000000000000000000008000001010001000000000000100008000401010001000040002000100018000401030003000040002000300018000c010300030000c0006000300018000c01030003"+"0000c0006000300018600c03030c030c00c000600030c1a8900c313512351200c300618351264b08d449c961c961cd4486a24c96180c072587018001803258792c3018000c00060101800180006000300018000c00060301800180006000300018000c00060101800180006000"+"300018000c000601018001800060003000180008000601010001000060003000100000000401000000000040002000000000000003042108421084210842108421084211fffffffffffffffffffffffffffffff";
  127.  
  128. bit[2]="78000000000000000000000000000001000000000000000000000000000001000000000000000000000000000001000000000000000000000000000001000000000000000000000000000001000000"+"0000000000000000000000030000000000000000000000000000010000fffffffffffff8000000000001ffff00000000000007fffffffffe010000000000000000000000000001fd000000000000000000000000000003000000000000000000000000000001000000000000000000000000"+"000001000000000000000000000000000001000000000000000000000000000001000000000000000000000000000003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  129.  
  130. bit[3]="7800000000000000000000010000000100200000000400000000010000000100200000000400000000030000000100600000000c00000000030000000100600000000c000000000500000031006000"+"00000c00000000190c00004bc0616000000c300000c01112300f8720a2903000d448c00f3fe121cff0011f240fcfff24873ff00001400000010028000000050000000001400000010028000000050000000001800000030030000000060000000001800000010030000000060000000"+"00180000001003000000006000000000100000001002000000004000000000000000001000000000000000000000000000003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  131.  
  132. bit[4]="78000000402010080402010080400001020100402010080402010080400011020100c06030180c06030180c04011060300c06030180c06030180c0403106030cc6633198cc6633198cc0c031663313"+"49a4d269349a4d269340c3339a4d205028140a05028140a04cc4d10281405028140a05028140a05348110281406030180c06030180c06050170301806030180c06030180c06050190301806030180c06030180c060601b0301806030180c06030180c060601903018040201008"+"0402010080406011020100402010080402010080406011020100000000000000000000004011000000000000000000000000004003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  133. }
  134.  
  135. /* Next Memo Pad file begins after this line*/
  136.  
  137. /$ Code Blue! casedb1
  138.  
  139. striplibb(){
  140. bit[5]="780000000400400200100080040020011000800400c00600100080040020011000800c01400a003001800c006003300180140141ea0e5002801400a005500280141e461231507a83d41ea0f5507a8"+"3a46048024091848c2461230b91848c44804802401200900480240112009004805002801200900480240112009005005002801400a0050028011400a005005002801400a0050028011400a005006003001400a0050028031400a006004002001800c0060030011800c00400000"+"00010008004002001100080000000000000000000000001000000000000000000000000004001000000000000000000000000004003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  141.  
  142. bit[6]="780000600000000000000c00000000010000900c00c00000c01200c00000c10180881201200c01201101200c012102808811011012011010811012011502510410810811010a20410811010f443102"+"20620410a20620220410a203c41102202202206202202202206201440902202202202201202202202201240a01201202201201401202201201280a01401401201401401401201401280e01401401401401c01401401403380601c01c01401c00c01c01401c01180400c00c01c00"+"c00800c01c00c01100400800800c00800800800c00801100000800800800800000800800801000000000000800000000000800003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  143.  
  144. bit[7]="780000000400400200100080040020011000800400c00600100080040020011000800c01400a003001800c006003300180140141ea0e5002801400a005500280141e461231507a83d41ea0f5507a8"+"3a46048024091848c2461230b91848c44804802401200900480240112009004805002801200900480240112009005005002801400a0050028011400a005005002801400a0050028011400a005006003001400a0050028031400a006004002001800c0060030011800c00400000"+"00010008004002001100080000000000000000000000001000000000000000000000000004001000000000000000000000000004003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  145.  
  146. bit[8]="780000600000000000000c00000000010000900c00c00000c01200c00000c10180881201200c01201101200c012102808811011012011010811012011502510410810811010a20410811010f443102"+"20420410a20620220410a203c41102206202206202202202206201440902202202202201202202202201240a01201202201201401202201201280a01401401201401401401201401280a01401401401401401401401403280601401401401400c01401401401180400c00c0140"+"0c00800c01400c01100400800800c00800800800c00801100000800800800800000800800801000000000000800000000000800003042108421084210842108421084211ffffffffffffffffffffffffffffff";
  147. }
  148.  
  149. orderlib(){
  150. select="  Select Order:,Adenosine 6mg IV,Adenosine 12mg IV,Atropine 1mg IV max 2mg,Beta-Blocker,Bicarbonate 1meq/kg IV,Bretylium 5-10mg/kg IV,Cardioversion 100-360J (sync),Digoxin,Diltiazem,Defibrillate 200J-360J,Dopamine 5-20mcg/kg/min,Epinpherine 1mg q5min";
  151. select=select+",Intubate,Isoproterenol,IV,Lidocaine 1.5mg/kg q5' max 3/kg,Magnesium 1-2g IV,Oxygen,Pacing (Cardiac),Possible Causes,Procainamide 20-30mg/min,Vagal Maneuvers,Verapamil 2.5-5mg/5-10mg IV";
  152. }